COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE PLOT(X,Y,I)
C00003 ENDMK
C⊗;
	SUBROUTINE PLOT(X,Y,I)
	COMMON /FAC/JFAC,KFAC
	IF(I.GT.0)GO TO 1    
C	M=X
C	N=Y
	RETURN
2	CALL DPYOUT(1)
 	PAUSE
	RETURN
	
1	IF(I.EQ.999)GO TO 2
	J=(M+X)*JFAC
	K=(N+Y)*KFAC
	IF(I.EQ.2)CALL AVECT(J,K)
	IF(I.EQ.3)CALL AIVECT(J,K)
	NN=NN+1
	IF(NN.LT.20)RETURN
	NN=0
	CALL DPYOUT(1)
	END
 
	SUBROUTINE PLOTS(I,J,K)
	DIMENSION N(4000)
	CALL DPYSET(1,N,4000)
	END

	SUBROUTINE ROTATE(X,Y,N,CX,CY,ANGLE)
	DIMENSION X(1),Y(1)
	THETA=ANGLE*6.2831853/360.
	DO 1 I=1,N
	A=X(I)-CX
	B=Y(I)-CY
	X(I)=A*COS(THETA)-B*SIN(THETA) + CX
1	Y(I)=A*SIN(THETA)+B*COS(THETA) + CY
	RETURN
	END